home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / vgacodng / part01_a.pas < prev    next >
Pascal/Delphi Source File  |  1996-11-22  |  519b  |  36 lines
  1. program FillScreen;
  2.  
  3. uses crt;
  4.  
  5. var n1,n2 : integer;
  6.  
  7. procedure SetMCGAMode;assembler;
  8. asm
  9.   mov     ax,13h
  10.   int     10h
  11. end;
  12.  
  13. procedure SetTextMode;assembler;
  14. asm
  15.   mov     ax,3
  16.   int     10h
  17. end;
  18.  
  19. procedure PutPixel(x,y:integer;col:byte);assembler;
  20. asm
  21.   mov     ah,0Ch
  22.   mov     al,col
  23.   mov     cx,x
  24.   mov     dx,y
  25.   int     10h
  26. end;
  27.  
  28. begin
  29.   randomize;
  30.   SetMCGAMode;
  31.   for n1 := 0 to 319 do
  32.     for n2 := 0 to 199 do PutPixel(n1,n2,random(256));
  33.   readkey;
  34.   SetTextMode;
  35. end.
  36.